
*******************************************************************************
*** Description: 	This document provides code for reproducing the 		***
***					results tables in the paper, "Contradictory Calculi: 	***
***					Differences in Individuals' Turnout Decisions across 	***
***					Electoral Systems," which is authored by Shane P. 		***
***					Singh and appears in Political Research Quarterly.	 	***
***					2011. 64(3): 646-655.									***
*******************************************************************************


**************
**************
*Set the Version                                                                                                                                 
**************
**************
version 10


**************
**************
*Open the Data                                                                                                                              
**************
**************
use "~your file pathway/CSES Modules 1 and 2.dta"



**************
**************
*Table 1                                                                                                                            
**************
**************
summarize voted age educ efficacy female income party_id expectben_dist plurality disprop compulsory enep bicameral ///
    if ~missing(voted, age, educ, efficacy, female, income, party_id, expectben_dist, plurality, disprop, compulsory, enep, bicameral)



**************
**************
*Table 3                                                                                                                            
**************
**************

*Model 1
xtlogit voted age educ efficacy female income party_id expectben_dist plurality compulsory eneplog bicameral, i(cntryyearnum)

*Model 2
xtlogit voted age educ efficacy female income party_id c.expectben_dist##i.plurality compulsory eneplog bicameral, i(cntryyearnum)

*Model 3
xtlogit voted age educ efficacy female income party_id c.expectben_dist##c.disprop compulsory eneplog bicameral, i(cntryyearnum)



**************
**************
*Table 4                                                                                                                            
**************
************** 
xtlogit voted age educ efficacy female income party_id c.expectben_dist##c.disprop compulsory eneplog bicameral, i(cntryyearnum)
sum disprop if e(sample), detail
global one_sd_below = r(mean) - r(sd)
global mean = r(mean) 
global one_sd_above = r(mean) + r(sd)
margins, dydx(expectben_dist) at(disprop = ($one_sd_below $mean $one_sd_above)) predict(xb)


**************
**************
*Table 5                                                                                                                            
**************
**************
*Model 4
xtlogit voted age educ efficacy female income party_id c.expectben_no_weight##i.plurality compulsory eneplog  bicameral if e(sample), i(cntryyearnum)


*Model 5
xtlogit voted age educ efficacy female income party_id c.expectben_nat##i.plurality compulsory eneplog  bicameral if e(sample), i(cntryyearnum)



